﻿
Imports System.IO

Public Class iframe
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.core(key) OrElse _
               attributesCollection.frameborder(key) OrElse _
               attributesCollection.height(key) OrElse _
               attributesCollection.longdesc(key) OrElse _
               attributesCollection.marginheight(key) OrElse _
               attributesCollection.marginwidth(key) OrElse _
               attributesCollection.scrolling(key) OrElse _
               attributesCollection.src(key) OrElse _
               attributesCollection.width(key) OrElse _
               attributesCollection.name(key) OrElse _
               attributesCollection.onload(key) OrElse _
               attributesCollection.onunload(key) OrElse _
               attributesCollection.style(key)
        'i have added these attributes, though they are not in w3c, but known browsers support them.
        'onload, onunload, style
    End Function

    Protected Overrides Function isonelineControl() As Boolean
        Return False
    End Function

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff, "iframe")
        text() = "NS" 'two reasons here, 1. give a message to user, browser cannot support iframe
        '                                2. make iframe always has a </iframe>, browser cannot handler <iframe ... />
    End Sub
End Class
